(vc-cvs-status-extra-headers): Use full directory name when reporting

the module.

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index 0d8cbb1e6fb1b2f9307b1d204719e0acae571391..cbc7fa59bab7695873c49b1c0e0be0cc2237a114 100644 (file)
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -1000,8 +1000,8 @@ state."
             (with-temp-buffer
               (insert-file-contents "CVS/Repository")
               (goto-char (point-min))
-              (re-search-forward "[^/\n]*" nil t)
-              (concat (match-string 0) "\n"))
+              (skip-chars-forward "^\n")
+              (concat (buffer-substring (point-min) (point)) "\n"))
           (file-error nil))))
     (concat
      (cond (module